Compute! Gazette 1985 December/1985-12.d64/construction set

Commodore BASIC | 2022-09-20 | 5KB | 124 lines

100 poke53280,1:poke53281,1
110 print"[147]         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
120 print"         the construction set":a$="  [164][164][164][164][164][164][164][164]"
130 print"            please wait...
140 [151]55,0:[151]56,64:[156]:ba[178]16384:[135]a:[129]i[178]1[164]a:[135]x$:[130]:[129]i[178]1[164]352
150 [135]x:s[178]s[170]x:[130]:[139]s[179][177]34546[167][153]"error in data statements.":[144]
160 [140]:di[178]8:[135]ns:[143] set di=1 for tape
170 [131] 3,"house","creature","shapes"
180 [153]"on              loading...  ":[129]n[178]0[164]ns[171]1:chset[178]ba[170]6144[170]n[172]2048:[135]x$
190 [141]1200:[130]:[153]"load":[129]n[178]1[164]40:[153]"usr";:[130]
200 [153]a$:[153]"     f1   wait         for different picture";
210 [153]a$:[153]"     f7   wait         for instructions"
220 [153]a$:[153]"  + and - wait         for extra pieces"
230 [153]a$:[153]"   cursor wait         selects piece"
240 [153]"  totototototototototo":[153]"   joystick wait       positions piece"
250 [153]"  tototototototototototototo":[153]"   fire button wait    stamps piece"
260 [153]"  totototototototototo":[153]"   inst del wait       erases piece"
270 [153]"  totototototototototototototototo":[153]"   shift clr home wait erases screen"
280 [153]"  totototototototototototototototototototototototototototototototototototototo";
290 [153]"  push _ and then f1, f3, f5            "
300 [153]"  to change border, screen, & picture     color. f7 resumes program"
310 [153]"":[129]n[178]1[164]40:[153]"usr";:[130]
320 [153]"for         use port 2 for joystick.";
330 v[178]53248:sb[178]15360[170]ba:sc[178]ba:h1[178]33:cb[178]1:mm[178]254:mn[178][171]1
340 se[178]8:[129]sp[178]0[164]2:[129]n[178]0[164]63:[135]d:[151]sb[170]n[170](64[172]sp),d:[130]:[130]
350 [129]a[178]53088[164]53247:[135]i:[151]a,i:[130]:[158]53088:[151]17400,241:[151]17401,240
360 [151]17402,242:[151]v[170]39,1:[151]v[170]3,205:[151]v[170]2,24:[151]v[170]40,10:[151]v[170]28,1
370 [151]v[170]37,5:[151]v[170]38,1:[151]v[170]28,[194](v[170]28)[176]4:[151]v[170]41,1
380 [134]a$(80,3):x[178]1:[129]c[178]1[164]20
390 co[178]co[170]1:[129]r[178]1[164]3:a$(c,r)[178][196](x):x[178]x[170]32:[130]:x[178]x[171]93:[139]co[178]10[167]co[178]0:x[178]x[170]66
400 [130]c:co[178]0:[129]c[178]21[164]50:co[178]co[170]1:a$(c,1)[178][196](x):a$(c,2)[178]"256":a$(c,3)[178]"256"
410 x[178]x[170]3:[139]co[178]10[167]co[178]0:x[178]x[170]2
420 [130]:[151]53265,[194](53265)[175]239:[151]56578,[194](56578)[176]3
430 [151]56576,([194](56576)[175]252)[176]2:a[178]4:sk[178][171]16:[151]53270,[194](53270)[176]16:py[178]1
440 [129]n[178]1[164]ns:[141]690:[151]53281,15:[153]"load":[151]53281,0:[130]:py[178]0:a[178]4:sk[178][171]16
450 [151]53282,2:[151]53283,1:[141]690:[151]v[170]21,3:[151]v,24:[151]v[170]1,50
460 [151]v[170]27,0:[151]53265,[194](53265)[176]16:x[178]24:y[178]50
470 j2[178][194](56320):fr[178]j2[175]16:jv[178]15[171](j2[175]15):[139]jv[178]1[167]y[178]y[171]se:[139]y[179]50[167]y[178]50
480 [139]jv[178]2[167]y[178]y[170]se:[139]y[177]194[167]y[178]194
490 [139]jv[178]4[167]x[178]x[171]se:[139]x[179]24[167]x[178]24
500 [139]jv[178]8[167]x[178]x[170]se:[139]x[177]312[167]x[178]312
510 tr[178](x[177]255):[151]v[170]16,([194](v[170]16)[175](mm))[176]tr[172](mn):[151]v[170]sp[172]2,x[170](tr[172]255)
520 [151]v[170](sp[172]2)[170]1,y[170]2:[139]fr[178]0[167]640
530 [161]kh$:[139]kh$[178]""[167]470
540 [139][197](kh$)[179]4[175][197](kh$)[177]0[167]se[178]8[172][197](kh$):[137]470
550 [139]kh$[178]"-"[167]cb[178]cb[171]9:[139]cb[179]0[167]cb[178]37
560 [139]kh$[178]"+"[167]cb[178]cb[170]9:[139]cb[177]37[167]cb[178]1
570 [139]kh$[178]"+"[176]kh$[178]"-"[167][141]730:[137]530
580 [139]kh$[178]""[176]kh$[178]"cmd"[167] [141]780:[137]470
590 [139][198](kh$)[178]20[167]640
600 [139]kh$[178]"load"[167][151]53281,15:[153]"load":[151]53281,0:[141]730:[137]470
610 [139]kh$[178]"input"[167][141]690
620 [139]kh$[178]"let"[167][141]1260
630 [137]470
640 x1[178](x[171]24)[173]8:y1[178]((y[171]50)[173]8)[172]40:s[178]sc[170]x1[170]y1:[129]r[178]1[164]3:[129]c[178]0[164]2
650 p[178][197](a$(cb[170]cx,r))[170]c:[139]kh$[179][177]""[167]:[139][198](kh$)[178]20[167]p[178]32
660 [139]p[177]255[167]p[178]32
670 [151]s[170]c[170](r[171]1)[172]40,p:[130]:[139][197](a$(cb[170]cx,1))[170]c[177]185[167]r[178]3
680 [130]:fr[178]1:[137]470
690 a[178]a[170]2:sk[178]sk[170]16:[139]a[177]12[176](a[171]6)[173]2[178]ns[167]a[178]6:sk[178]0
700 sc[178]ba[170]1024[172]sk[173]16:[151]53272,([194](53272)[175]15)[176]sk
710 [151]53272,([194](53272)[175]240)[176]a:[151]648,sc[173]256:[139]py[178]1[167][142]
720 [151]sc[170]1016,241:[151]sc[170]1017,240:[151]sc[170]1018,242:[141]730:[142]
730 va[178]0:co[178]0:[129]c[178]1[164]9:co[178]co[170]1:[129]r[178]1[164]3:[129]n[178]1[164]3:p[178][197](a$(cb[170]c[171]1,r))[171]1[170]n
740 [139]p[177]255[167]p[178]32
750 [151]sc[170]880[170]va[170]n[170](c[171]1)[172]4[170](r[171]1)[172]40,p:[130]:[139][197](a$(cb[170]c[171]1,r))[171]1[170]n[177]185[167]n[178]3
760 [130]:[139]co[178]9[167]co[178]0:va[178]va[170]120
770 [130]:[141]800:[142]
780 [139]kh$[178]"cmd"[167] h1[178]h1[171]32:cx[178]cx[171]1:[139]cx[179]0[167]cx[178]8:h1[178]288
790 [139]kh$[178]""[167] h1[178]h1[170]32:cx[178]cx[170]1:[139]cx[177]8[167]cx[178]0:h1[178]40
800 [139][197](a$(cb[170]cx,1))[170]c[177]185[167]sp[178]2:sv[178][171]16:[151]v[170]21,6:mm[178]251:mn[178][171]4
810 [139][197](a$(cb[170]cx,1))[170]c[179]189[167]sp[178]0:sv[178]0:[151]v[170]21,3:mm[178]254:mn[178][171]1
820 tz[178](h1[177]255):[151]v[170]16,([194](v[170]16)[175](253))[176]tz[172]([171]2):[151]v[170]2,h1[170](tz[172]255)
830 [142]
840 [131] 3,252,0,7,254,0,15,254,0,31
850 [131] 110,0,31,247,0,29,255,0,55,253
860 [131] 128,61,191,128,59,223,128,50,238,128
870 [131] 115,187,128,99,187,128,3,185,0,3,144,0
880 [131]2,128,0,3,128,0,3,128,0,2
890 [131]128,0,1,0,0,0,0,0,0,0
900 [131]0,0,85,85,85,127,255,253,112,0
910 [131]13,112,0,13,112,0,13,112,0,13
920 [131]112,0,13,112,0,13,112,0,13,112
930 [131]0,13,112,0,13,112,0,13
940 [131]112,0,13,112,0,13,112,0,13,112
950 [131]0,13,112,0,13,112,0,13,112,0
960 [131]13,127,255,253,85,85,85,247,85,85
970 [131]85,106,170,169,96,0,9,96,0,9
980 [131] 96,0,9,96,0,9,96,0,9,106
990 [131]170,169,85,85,85,0,0,0,0,0
1000 [131]0,0,0,0,0,0,0,0,0,0
1010 [131] 0,0,0,0,0,0,0,0,0,0
1020 [131]0,0,0,0,0,0,0,0,0,0
1030 [131] 0,0,120,173,40,3,141,248,207,173
1040 [131]41,3,141,249,207,173,250,207,141,40
1050 [131]3,173,251,207,141,41,3,88,96,165
1060 [131]145,201,253,208,116,120,169,0,133,198
1070 [131]32,159,255,32,228,255,201,0,240,246
1080 [131]201,133,240,15,201,134,240,23,201,135
1090 [131]240,31,201,136,240,84,76,130,207,173
1100 [131]32,208,24,105,1,141,32,208,76,130
1110 [131] 207,173,33,208,24,105,1,141,33,208
1120 [131] 76,130,207,165,243,141,252,207,165,244
1130 [131] 141,253,207,169,0,133,243,169,216,133
1140 [131] 244,173,134,2,24,105,1,141,134,2
1150 [131] 162,4,160,0,145,243,136,208,251,202
1160 [131] 240,5,230,244,76,216,207,173,252,207
1170 [131] 133,243,173,253,207,133,244,76,130,207
1180 [131] 88,108,248,207,237,246,123,207,2,0
1190 [131] 255,255
1200 [129]i[178]1[164][195](x$):[151]678[170]i,[198]([202](x$,i)):[130]
1210 [151]781,167:[151]782,2:[151]780,[195](x$):[158]65469
1220 [151]780,1:[151]781,di:[151]782,0:[158]65466
1230 [151]780,0:[151]781,0:[151]782,chset[173]256:[158]65493
1240 [139]([194](783)[175]1)[176](191[175]st)[167][153]"load error":[144]
1250 [160]1:[142]
1260 [151]56578,[194](56578)[176]3:[151] 56576,([194](56576)[175]252)[176]3
1270 [151]53270,[194](53270)[175]239:[151]53272,([194](53272)[175]15)[176]16
1280 [151]53272,([194](53272)[175]240)[176]4:xx[178][194](v[170]21):[151]v[170]21,0:[151]53281,0
1290 [161]k$:[139]k$[178]""[167]1290
1300 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)[176]2
1310 [151]53270,[194](53270)[176]16:[151]53272,([194](53272)[175]15)[176]sk
1320 [151]53272,([194](53272)[175]240)[176]a:[151]53281,0:[151]v[170]21,xx:[142]